

Public Class Frm_SelectCasioNo
    Private Sub LodCasioNo()
        Dim Sql As String = String.Empty
        Dim DT As DataTable
        Sql = " select distinct  ListA from dbo.BSC_OtherDefineB where Itemno= '95'"
        DT = Exec(Sql, E_ExecType.DataTable)
        Me.CBCasioNO.DataSource = DT
        Me.CBCasioNO.DisplayMember = "ListA"
    End Sub
    Private Sub Frm_SelectCasioNo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        LodCasioNo()
    End Sub

    Private Sub BtnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnYes.Click
        Me.BtnYes.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub BtnNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNo.Click
        Me.BtnNo.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub Frm_SelectCasioNo_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Me.BtnNo.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub
End Class